perm filename FOO.AL[AL,HE] blob sn#738215 filedate 1984-01-06 generic text, type T, neo UTF8
 BEGIN 
 SCALAR I;
 FOR I := 1 STEP 1 UNTIL 5 DO
   BEGIN 
   PAUSE 5;
   PRINT(I);
   END ;
 END